`createTree` <-
function(x, cpv) {
	# Create and return a tree.
	return(rpart(class ~ .,
			 x,
			 method="class", 
			 cp=cpv)
	   	)
}

